Option Explicit
Sub A_Sample054()
    Dim mySht As Worksheet
    Dim myShts As Sheets
    Dim myWb As Workbook
    Dim myStr1 As String
    Dim myStr2 As String
    Dim myStr3 As String
    myStr1 = "Sheet1"			'Nu@
    myStr2 = "Sheet2"
    myStr3 = "Sheet3"
    Set myWb = Workbooks(1)
    'ǳƨ즹
    Set myShts = myWb.Worksheets(Array(myStr1, myStr2, myStr3))
    For Each mySht In myShts
        MsgBox mySht.Name
    Next
    Set myShts = Nothing		'
    Set mySht = Nothing
    Set myWb = Nothing
End Sub
